home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Light ROM 3
/
Light ROM 3 - Disc 2.iso
/
programs
/
amiga
/
dps
/
tbciii20.lha
/
TBC.REXX
< prev
next >
Wrap
OS/2 REXX Batch file
|
1987-10-08
|
1KB
|
207 lines
/* Script for TBCS */
if ~show('L','rexxmathlib.library') then
if ~addlib('rexxmathlib.library',0,-30,0) then do
MSG 'ERROR: rexxmathlib.library not available - RTFM.'
exit 10
end
OPTIONS RESULTS
ADDRESS TBC
TOFRONT
TBC 1
VIDEO UNITY
BLACK UNITY
CHROMA UNITY
HUE UNITY
HORIZ UNITY
INPUT
Say RESULTS
ADDRESS COMMAND 'WAIT 5'
DO I = 100 TO 70 BY -.5
VIDEO I
END
DO I = 70 TO 130 BY .5
VIDEO I
END
DO I = 130 TO 100 BY -.5
VIDEO I
END
VIDEO UNITY
DO I = 7.5 TO -22.5 BY -.5
BLACK I
END
DO I = -22.5 TO 37.3 BY .5
BLACK I
END
DO I = 37.3 TO 7.5 BY -.5
BLACK I
END
BLACK UNITY
DO I = 100 TO 50 BY -.5
CHROMA I
END
DO I = 50 TO 150 BY .5
CHROMA I
END
DO I = 150 TO 100 BY -.5
CHROMA I
END
CHROMA UNITY
DO I = 0 TO -45 BY -1
HUE I
END
DO I = -45 TO 45 BY 1
HUE I
END
DO I = 45 TO 0 BY -1
HUE I
END
HUE UNITY
DO I = 0 TO -1 BY -.02
HOR I
END
DO I = -1 TO 1 BY .02
HOR I
END
DO I = 1 TO 0 BY -.02
HOR I
END
HORIZ UNITY
ADDRESS COMMAND WAIT '3'
TOBALANCE
DO R = 0 TO -30 BY .3
RED R
BLUE COS(R)
END
Do I = -3.1459*4 to 3.1459*4 by .08
RED Sin(I)*30
BLUE COS(I)*30
End
RED
R = RESULT
BLUE
B = RESULT
RED UNITY
Do I = B to 0 by -.2
BLUE I
End
address command 'wait 3'
RED UNITY
BLUE UNITY
TOPROCAMP
TOBACK